home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / nekodemo / rtrv / shared.dir / 00368_LONG+0.ls < prev    next >
Encoding:
Text File  |  1995-05-10  |  925 b   |  24 lines
  1. on enterFrame
  2.   global gtpoem, gppoem, gtbio, gpbio, gcurrentnumber, gblenddraw, galreadyshownbutton, greq, glongreq
  3.   cursor([411, 412])
  4.   set galreadyshownbutton to 1
  5.   set greq to "J"
  6.   set a to 20
  7.   set b to a / 2
  8.   makepuppet(2, getbioname(gtbio, gcurrentnumber, "NK"), gblenddraw, 330, 250, 36)
  9.   makepuppet(13, getbioname(gtbio, gcurrentnumber, "JN"), 100, 320 - b - (the width of cast getbioname(gtbio, gcurrentnumber, "JN") / 2), 50)
  10.   makepuppet(14, getbioname(gtbio, gcurrentnumber, "EN"), 100, 320 + b + (the width of cast getbioname(gtbio, gcurrentnumber, "EN") / 2), 53)
  11.   if glongreq <> "E" then
  12.     makepuppet(15, getpoemname(gtpoem, gcurrentnumber, 6), 100, 320, 240)
  13.     makepuppet(16, "DUMMY", 100, 50, 450, 36)
  14.   else
  15.     makepuppet(15, "DUMMY", 100, 50, 450, 36)
  16.     makepuppet(16, getpoemname(gtpoem, gcurrentnumber, 7), 100, 320, 240)
  17.   end if
  18.   updateStage()
  19. end
  20.  
  21. on exitFrame
  22.   go(the frame + 1)
  23. end
  24.